home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / wwbbs26.lha / WWBBSDoors / cybmods.lha / last10.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-12-19  |  1.1 KB  |  55 lines
  1. /* Instigist(Snake Pit 310-863-3754) Presents Last 5 Callers */
  2. options results
  3. do i = 1 to 5
  4. datime.i = 0
  5. dadate.i = 0
  6. id.i = 0
  7. end
  8. BBSIDENTIFY USER 
  9. temp = result
  10. parse var temp '"'id'" "'locat'  'ans
  11. id = id", "locat
  12. datime = time()
  13. temp = date(o)
  14. parse var temp year'/'month'/'date .
  15. dadate = month'/'date'/'year
  16. open(file,'doors:last10','R')
  17.    do i = 1 to 5
  18.    datime.i = readln(file)
  19.    dadate.i = readln(file)
  20.    id.i = readln(file)
  21.    end
  22. close(file)
  23. print " "
  24. print "       LAST 5 CALLERS v1.0 BY INSTIGIST!"
  25. print "#-----TIME------DATE----------USER, LOCATION----------"
  26.    do i = 1 to 5
  27.    print ""i" - "datime.i"  "dadate.i"    "id.i
  28.    end
  29. /* Now make new last 5 */
  30. datime.5 = datime.4
  31. dadate.5 = dadate.4
  32. id.5 = id.4
  33. datime.4 = datime.3
  34. dadate.4 = dadate.3
  35. id.4 = id.3
  36. datime.3 = datime.2
  37. dadate.3 = dadate.2
  38. id.3 = id.2
  39. datime.2 = datime.1
  40. dadate.2 = dadate.1
  41. id.2 = id.1
  42. datime.1 = datime
  43. dadate.1 = dadate
  44. id.1 = id
  45.  
  46. open(file,'doors:last10','W')
  47.    do i = 1 to 5
  48.    writeln(file,datime.i)
  49.    writeln(file,dadate.i)
  50.    writeln(file,id.i)
  51.    end
  52. close(file)
  53.  
  54. exit
  55.